home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / boymks5e.zip / OPUS.BSC < prev    next >
Text File  |  1991-12-16  |  4KB  |  105 lines
  1. \\
  2. \\  Make mail script by Lee Breeden
  3. \\
  4.  
  5. \\ OPUS is a popular nation-wide Bulletin Board System which is famous
  6. \\ for its networking capabilities.  This script automates OPUS logons.
  7. \\ You must set the following macros with BOYAN's configuration module:
  8. \\  \! = Macro # 111 = Your first name
  9. \\  \@ = Macro # 112 = Your last name
  10. \\  \# = Macro # 113 = Your password
  11.  
  12. |LOGON
  13.  
  14. \DM[Hang on for Opus!]
  15. \PA[10]
  16. \IF+[Press ESCape to enter BBS][^[]{
  17. \ST[ » Press <TAB> for Menu options «]
  18. \PA[5]
  19.  
  20.  
  21. \\ Send first name, and when prompted, last name and password:
  22. \\!{
  23. \to[40]
  24. \WF[FIRST]\!{
  25. \WF[LAST]\@{
  26. \WF[Y,n]Y{
  27. \WF[assword]\#{
  28. \WF[Press ENTER to continue ]{
  29. \pa[4]
  30. \dm[Joining Main Board]
  31. \IF+Press ENTER to continue[{]
  32. \WF[Q) Quit]Q{
  33. \WF[MAIN: ]m{
  34. {
  35. \dm[Joining Message System ]
  36. \WF[MESSAGES]={ \eb \DM[Logon Complete at %HR: %MI]
  37. \WF[Select: ]={ \eb  \DM[Logon Complete at %HR: %MI]
  38. \WF[Select: ]N={\LD+[c:\boyan\log\quest.log]
  39. \WF[Select: ]={
  40. \WF[2]
  41. \WF[Select: ]g{
  42. \WF[Disconnect "[Y,n,?=help"]]y{
  43. \WF[enn Truitt "[y,N,?=help"]]n{
  44. {
  45. \LD*
  46.  
  47.  
  48. \DM[OPUS LOGON COMPLETE.]
  49.  
  50.  
  51. |*TAB                          \\ This runs automatically when <Tab> pressed
  52. \KS  \SV0[1]
  53. \DM38,%V0[ ╔═══════════════════════════════════════╗ ]  \+V0[1]
  54. \DM38,%V0[ ║ OnLine MENU "@   %HR:%MI  %Mo/%DA/%YR       ║ ]  \+V0[1]
  55. \DM38,%V0[ ╠═══════════════════════════════════════╣ ]  \+V0[1]
  56. \\DM38,%V0[ ║ <C> =                                 ║ ]  \+V0[1]
  57. \DM38,%V0[ ║ <D> = Download a file                 ║ ]  \+V0[1]
  58. \DM38,%V0[ ║ <DM>= Download Mail (from mail door)  ║ ]  \+V0[1]
  59. \DM38,%V0[ ║ <E> = Edit Script                     ║ ]  \+V0[1]
  60. \DM38,%V0[ ║ <F> = File Manager                    ║ ]  \+V0[1]
  61. \DM38,%V0[ ║ <H> = Hang up command                 ║ ]  \+V0[1]
  62. \\DM38,%V0[ ║ <G> =                                 ║ ]  \+V0[1]
  63. \DM38,%V0[ ║ <J> = Jump to DOS                     ║ ]  \+V0[1]
  64. \DM38,%V0[ ║ <L> = Log to disk ...status %LD       ║ ]  \+V0[1]
  65. \DM38,%V0[ ║ <M> = Manual macro                    ║ ]  \+V0[1]
  66. \DM38,%V0[ ║ <N> = New File Scan                   ║ ]  \+V0[1]
  67. \DM38,%V0[ ║ <O> = Open Door                       ║ ]  \+V0[1]
  68. \DM38,%V0[ ║ <P> = edit Phone directory            ║ ]  \+V0[1]
  69. \DM38,%V0[ ║ <Q> = Run Quest block                 ║ ]  \+V0[1]
  70. \DM38,%V0[ ║ <R> = Read mail                       ║ ]  \+V0[1]
  71. \DM38,%V0[ ║ <S> = Scroll-back buffer              ║ ]  \+V0[1]
  72. \DM38,%V0[ ║ <T> = Termanial Mode                  ║ ]  \+V0[1]
  73. \DM38,%V0[ ║ <U> = Upload a file                   ║ ]  \+V0[1]
  74. \DM38,%V0[ ║ <UM>= Upload Mail (from mail door)    ║ ]  \+V0[1]
  75. \DM38,%V0[ ╟───────────────────────────────────────╢ ]  \+V0[1]
  76. \DM38,%V0[ ║<Esc>= ABORT script                    ║ ]  \+V0[1]
  77. \DM38,%V0[ ╚═══════════════════════════════════════╝ ]
  78. \KO[30]  \BB+  \KV0_[Enter OPTION: ]  \BB-  \RS
  79. \IV0+C[{\GB[*Tab]]
  80. \IV0+DM[\BL[MMdl]]
  81. \IV0+D[\BL[Download]]
  82. \IV0+E[\DC-[%WC %S:%SC]\gb[*tab]]
  83. \IV0+G[\IE-%AM,G[\AM[G]|\AM[%AP]] ]
  84. \IV0+F[\FM[]\gb[*tab]]
  85. \IV0+H[\gb[logoff]]
  86. \IV0+J[\JD\gb[*tab]]
  87. \IV0+L[\LD*\gb[*tab]]
  88. \IV0+M[\KV9[MACRO:] @V9  \LV9[] \IE+%LV,1[\SV9[%V9]]\gb[*tab]]
  89. \IV0+N[N S A N{\GB[termlines]]
  90. \IV0+O[op {\GB[termlines]]
  91. \IV0+P[ \DI[] \GB[*Tab] ]
  92. \IV0+Q[ \bl[quest]\gb[termlines]]
  93. \IV0+R[R Y{\GB[termlines]]
  94. \IV0+S[\RB\gb[*Tab]]
  95. \IV0+T[\gb[termlines]\gb[*tab]]
  96. \IV0+UM[\bl[MMul]\gb[*tab]]
  97. \IV0+U[\bl[upload]\gb[*tab]]
  98. \GB[*TAB]
  99.  
  100. |TermLines
  101. \to[120]
  102. \ST[ » Press <TAB> for Menu options «]
  103. \RE[\CA-[\ab] \IK+[%IK]]
  104.  
  105.